repeat_ Function

private elemental function repeat_(string, ncopies) result(repeat_string)

Concatenate several copies of a varying string

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string
integer, intent(in) :: ncopies

Return Value type(varying_string)


Source Code

  elemental function repeat_ (string, ncopies) result (repeat_string)

    type(varying_string), intent(in) :: string
    integer, intent(in)              :: ncopies
    type(varying_string)             :: repeat_string


    repeat_string = var_str(REPEAT(char(string), ncopies))

! Finish

    return

  end function repeat_